﻿
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim impr As Printing_Form = New Printing_Form()
        impr.Show(Me)
        impr.Imprimir_Inspeccion_Hecha(20, "C:\Documents and Settings\marc\Mis documentos")

        'Dim i As New CRC_Imprimir
        ''i.Imprimir_T34()

        'Dim print As String = "[Id]<txt>[Value]<Abrera>[Id]<txt2>[Value]<9803>[Id]<txt3>[Value]<>[Id]<txt5>[Value]<Avda. Generalitat, 1>[Id]<txt11>[Value]<NADA>[Id]<txt12>[Value]<Abrera>[Id]<txt8>[Value]<hola cara cola>[Id]<txt7>[Value]<cara cola cara cola coca cola>[Id]<txt13>[Value]<>[Id]<txt14>[Value]<_ _ /_ _ /_ _ _ _>[Id]<txt15>[Value]<_ _ : _ _>[Id]<txt16>[Value]<>[Id]<txt17>[Value]<>[Id]<txt20>[Value]<>[Id]<txt21>[Value]<>[Id]<chk01_01>[Value]<True>[Id]<chk01_02>[Value]<True>[Id]<chk01_03>[Value]<True>[Id]<chk01_04>[Value]<True>[Id]<chk01_3>[Value]<True>[Id]<chk01_05>[Value]<False>[Id]<chk01_4>[Value]<False>[Id]<chk01_06>[Value]<False>[Id]<chk01_5>[Value]<False>[Id]<chk01_6>[Value]<False>[Id]<chk01_7>[Value]<False>[Id]<chk01_8>[Value]<False>[Id]<chk01_10>[Value]<False>[Id]<chk01_9>[Value]<False>[Id]<chk01_11>[Value]<False>[Id]<txt18>[Value]<>[Id]<chk01_12>[Value]<False>[Id]<chk01_13>[Value]<False>[Id]<chk01_14>[Value]<False>[Id]<chk01_15>[Value]<False>[Id]<chk01_16>[Value]<False>[Id]<chk01_17>[Value]<False>[Id]<chk01_18>[Value]<False>[Id]<chk01_19>[Value]<False>[Id]<chk01_20>[Value]<False>[Id]<chk01_21>[Value]<False>[Id]<chk01_22>[Value]<False>[Id]<txt2525>[Value]<>[Id]<chk01_23>[Value]<False>[Id]<chk01_24>[Value]<False>[Id]<chk01_25>[Value]<False>[Id]<chk01_26>[Value]<False>[Id]<chk01_27>[Value]<False>[Id]<chk01_28>[Value]<False>[Id]<chk01_29>[Value]<False>[Id]<chk01_30>[Value]<False>[Id]<chk01_31>[Value]<False>[Id]<chk01_32>[Value]<False>[Id]<chk01_33>[Value]<False>[Id]<chk01_34>[Value]<False>[Id]<chk01_37>[Value]<False>[Id]<chk01_36>[Value]<False>[Id]<chk01_35>[Value]<False>[Id]<chk01_38>[Value]<False>[Id]<chk01_41>[Value]<False>[Id]<chk01_40>[Value]<False>[Id]<chk01_39>[Value]<False>[Id]<chk01_44>[Value]<False>[Id]<chk01_43>[Value]<False>[Id]<chk01_45>[Value]<False>[Id]<chk01_46>[Value]<False>[Id]<chk01_47>[Value]<False>[Id]<chk01_49>[Value]<False>[Id]<chk01_42>[Value]<False>[Id]<chk01_50>[Value]<False>[Id]<chk01_48>[Value]<False>[Id]<chk01_51>[Value]<False>[Id]<chk01_52>[Value]<False>[Id]<chk01_54>[Value]<False>[Id]<chk01_53>[Value]<False>[Id]<chk01_56>[Value]<False>[Id]<chk01_55>[Value]<False>[Id]<chk01_58>[Value]<False>[Id]<chk01_57>[Value]<False>[Id]<chk01_59>[Value]<False>[Id]<chk01_60>[Value]<False>[Id]<chk01_61>[Value]<False>[Id]<chk01_62>[Value]<False>[Id]<chk01_64>[Value]<False>[Id]<chk01_63>[Value]<False>[Id]<chk01_66>[Value]<False>[Id]<chk01_65>[Value]<False>[Id]<chk01_67>[Value]<False>[Id]<chk01_68>[Value]<False>[Id]<chk01_69>[Value]<False>[Id]<chk01_70>[Value]<False>[Id]<chk01_71>[Value]<False>[Id]<chk01_72>[Value]<False>[Id]<chk01_73>[Value]<False>[Id]<chk01_74>[Value]<False>[Id]<txt19>[Value]<>[Id]<txt27>[Value]<   /   / >[Id]<chk01_75>[Value]<False>[Id]<txt22>[Value]<>[Id]<txt28>[Value]<   /   / >[Id]<chk01_76>[Value]<False>[Id]<txt23>[Value]<>[Id]<txt29>[Value]<   /   / >[Id]<chk01_77>[Value]<False>[Id]<txt24>[Value]<>[Id]<txt30>[Value]<   /   / >[Id]<chk01_78>[Value]<False>[Id]<txt25>[Value]<>[Id]<txt31>[Value]<   /   / >[Id]<chk01_79>[Value]<False>[Id]<txt26>[Value]<>[Id]<txt32>[Value]<   /   / >[Id]<chk01_80>[Value]<False>[Id]<chk01_81>[Value]<False>[Id]<chk01_82>[Value]<False>[Id]<chk01_84>[Value]<False>[Id]<chk01_83>[Value]<False>[Id]<chk01_85>[Value]<False>[Id]<chk01_86>[Value]<False>[Id]<chk01_88>[Value]<False>[Id]<chk01_87>[Value]<False>[Id]<chk01_89>[Value]<False>[Id]<chk01_90>[Value]<False>[Id]<txt33>[Value]<>[Id]<chk01_91>[Value]<False>[Id]<chk01_94>[Value]<False>[Id]<chk01_93>[Value]<False>[Id]<chk01_96>[Value]<False>[Id]<chk01_98>[Value]<False>[Id]<chk01_97>[Value]<False>[Id]<chk01_95>[Value]<False>[Id]<chk01_92>[Value]<False>[Id]<chk01_99>[Value]<False>[Id]<chk01_100>[Value]<False>[Id]<chk01_101>[Value]<False>[Id]<chk01_102>[Value]<False>[Id]<chk01_104>[Value]<False>[Id]<chk01_103>[Value]<False>[Id]<chk01_105>[Value]<False>[Id]<chk01_107>[Value]<False>[Id]<chk01_106>[Value]<False>[Id]<chk01_109>[Value]<False>[Id]<chk01_110>[Value]<False>[Id]<chk01_111>[Value]<False>[Id]<chk01_108>[Value]<False>[Id]<chk01_113>[Value]<False>[Id]<chk01_112>[Value]<False>[Id]<chk01_114>[Value]<False>[Id]<chk01_115>[Value]<False>[Id]<chk01_116>[Value]<False>[Id]<chk01_117>[Value]<False>[Id]<chk01_1188>[Value]<False>[Id]<chk01_118>[Value]<False>[Id]<chk01_119>[Value]<False>[Id]<chk01_120>[Value]<False>[Id]<chk01_121>[Value]<False>[Id]<chk01_122>[Value]<False>[Id]<chk01_123>[Value]<False>[Id]<txt34>[Value]<>[Id]<chk01_1222>[Value]<False>[Id]<chk01_1223>[Value]<False>[Id]<chk01_1224>[Value]<False>[Id]<chk01_125>[Value]<False>[Id]<txt36>[Value]<>[Id]<chk01_124>[Value]<False>[Id]<txt35>[Value]<>[Id]<chk01_126>[Value]<False>[Id]<chk01_128>[Value]<False>[Id]<chk01_127>[Value]<False>[Id]<chk01_131>[Value]<False>[Id]<chk01_130>[Value]<False>[Id]<chk01_129>[Value]<False>[Id]<chk01_132>[Value]<False>"
        'Dim delimiterChars() As Char = New Char() {"<", ">"}

        'Dim datos() As String = print.Split(delimiterChars)
        'Dim hashDato As New Hashtable
        'Dim CREAR As Boolean = False
        'Dim AÑADIR As Boolean = False
        'Dim KEY As String = String.Empty
        'For Each dato As String In datos
        '    If dato = "[Id]" Then
        '        CREAR = True
        '        AÑADIR = False
        '    ElseIf dato = "[Value]" Then
        '        CREAR = False
        '        AÑADIR = True
        '    Else
        '        If CREAR Then
        '            KEY = dato
        '            hashDato.Add(dato, "")
        '        End If
        '        If AÑADIR Then
        '            hashDato.Item(KEY) = dato
        '        End If
        '    End If



        'Next
        'i.Imprimir()
        'i.Imprimir_Seguimiento_Inspeccion()
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Dim i As New CRC_Imprimir
        'i.Imprimir_S105()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim I As New CRC_Imprimir
        I.Imprimir_Insidencias(103)
    End Sub
End Class
